home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / oddeven < prev    next >
Text File  |  2007-02-28  |  1KB  |  46 lines
  1. 0010 //* ODD OR EVEN *//
  2. 0020 //
  3. 0030 //PREPARE TO PLAY//
  4. 0040 PRINT "NOW WE ARE GOING TO PLAY 'ODD OR EVEN'"
  5. 0050 PRINT 
  6. 0060 PRINT "HOW MANY GAMES DO YOU LIKE TO PLAY",
  7. 0070 INPUT NUMBER
  8. 0080 PRINT 
  9. 0090 PRINT "OK, HERE WE GO."
  10. 0100 PRINT "IF YOUR GUESS IS 'ODD' THEN TYPE 1,"
  11. 0110 PRINT "BUT IF YOUR GUESS IS 'EVEN' THEN TYPE 0."
  12. 0120 PRINT 
  13. 0130 COUNTWIN:=0
  14. 0140 //---------------//
  15. 0150 FOR I:=1 TO NUMBER DO
  16. 0160 //-GUESSING-//
  17. 0170 PRINT "WHAT IS YOUR GUESS (1,0)",
  18. 0180 INPUT GUESS
  19. 0190 OUTCOME:=RND(0,1)
  20. 0200 PRINT 
  21. 0210 //-DISPLAY RESULT-//
  22. 0220 IF OUTCOME=0 THEN
  23. 0230 PRINT "THE RESULT WAS EVEN."
  24. 0240 ELSE 
  25. 0250 PRINT "THE RESULT WAS ODD."
  26. 0260 ENDIF 
  27. 0270 //-ANNOUNCE WINNER-//
  28. 0280 IF GUESS=OUTCOME THEN
  29. 0290 PRINT "CONGRATULATIONS, YOU WIN."
  30. 0300 COUNTWIN:=COUNTWIN+1
  31. 0310 ELSE 
  32. 0320 PRINT "SORRY, YOU HAVE LOST."
  33. 0330 ENDIF 
  34. 0340 PRINT 
  35. 0350 PRINT "HERE IS ANOTHER ROUND:"
  36. 0360 ENDFOR I
  37. 0370 //---------------//
  38. 0380 //-GAME IS OVER-//
  39. 0390 PRINT 
  40. 0400 PRINT "THANK'S FOR THE GAME"
  41. 0410 PRINT "YOU HAVE WON ",COUNTWIN," ROUND(S),"
  42. 0420 PRINT "AND I HAVE WON ",NUMBER-COUNTWIN," ROUND(S)."
  43. 0430 PRINT 
  44. 0440 PRINT "GOODBYE."
  45. 0450 //---------------//
  46.